home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / mac / oztex / mf.hqx / Metafont / mfinputs / mathit.mf < prev    next >
Text File  |  1994-08-19  |  3KB  |  63 lines
  1. % The Computer Modern Math Italic family (by D. E. Knuth, 1979--1985)
  2.  
  3. font_coding_scheme:="TeX math italic";
  4. mode_setup; font_setup;
  5.  
  6. input romanu;  % upper case (majuscules)
  7. input itall;  % lower case (minuscules)
  8. input greeku;  % upper case greek letters
  9. input greekl;  % lower case Greek letters
  10. input italms;  % special symbols for math italic
  11. font_slant slant;  font_x_height x_height#;
  12. font_quad 18u#+4letter_fit#;
  13.  
  14. slant:=mono_charic#:=0;  % the remaining characters will not be slanted
  15. currenttransform:=identity yscaled aspect_ratio scaled granularity;
  16. input olddig;  % oldstyle numerals
  17. input romms;  % roman math specials
  18.  
  19. skewchar=oct"177"; skew#=.5u#;
  20. save comma;
  21. period=oct"72"; comma=oct"73"; slash=oct"75"; % non-ASCII positions
  22. ligtable "h": skewchar kern -skew#;
  23. ligtable oct"027":oct"034": comma kern -u#, period kern -u#, % $\nu:\tau:$
  24.  "L":"g":"u":"v":"x": oct"013": oct"026": % $L:g:u:v:x:\alpha:\mu:$
  25.  oct"035":oct"173": skewchar kern skew#; % $\upsilon:\imath:$
  26. ligtable "U": comma kern-2u#, period kern-2u#, % $U:$
  27.  slash kern-u#, skewchar kern skew#;
  28. ligtable "K":oct"011": slash kern-u#, % $K:\it\Psi:$
  29.  oct"016":"r": comma kern-u#, period kern-u#, % $\delta:r:$
  30.  "D":"c":"e":"o":"s":"y":"z":oct"017": % $D:c:e:o:s:y:z:\epsilon:$
  31.  oct"021":oct"023":oct"037": skewchar kern 2skew#; % $\eta:\iota:\chi:$
  32. ligtable oct"007": slash kern-u#, % $\it\Upsilon:$
  33.  comma kern-2u#, period kern-2u#, skewchar kern 2skew#;
  34. ligtable oct"005":"H": slash kern-u#, % $\it\Pi:H:$
  35.  comma kern-u#, period kern-u#, skewchar kern 2skew#;
  36. ligtable "N":"X": slash kern -1.5u#, % $N:X:$
  37.  "C":"T": slash kern -.5u#, comma kern -u#, period kern -u#, % $C:T:$
  38.  "B":"E":"G":"O":"Q":"R":oct"174": % $B:E:G:O:Q:R:\jmath:$
  39.  "l":"p":"q":"t":"w":oct"002":oct"004": % $l:p:q:t:w:\it\Theta:\Xi:$
  40.  oct"006":oct"010":oct"012":oct"014": % $\it\Sigma:\Phi:\Omega:\beta:$
  41.  oct"020":oct"022":oct"032":oct"036": % $\zeta:\theta:\rho:\phi:$
  42.  oct"042":oct"043":oct"045": % $\varepsilon:\vartheta:\varrho:$
  43.  oct"046":oct"047":oct"100": % $\varsigma:\varphi:\partial:$
  44.  skewchar kern 3skew#;
  45. ligtable "M":"S":"Z": slash kern-u#, % $M:S:Z:$
  46.  comma kern-u#, period kern-u#, skewchar kern 3skew#;
  47. ligtable oct"000":"F":"P": slash kern -u#, % $\it\Gamma:F:P:$
  48.  comma kern-2u#, period kern-2u#, skewchar kern 3skew#;
  49. ligtable "I":oct"030":oct"040":oct"140":oct"175": % $I:\xi:\psi:\ell:\wp:$
  50.  skewchar kern 4skew#;
  51. ligtable "A": skewchar kern 5skew#; % $A:$
  52. ligtable "d": "Y" kern u#, "Z" kern-u#, "j" kern-2u#, "f" kern-3u#, % $d:$
  53.  oct"001":oct"003": skewchar kern 6skew#; % $\it\Delta:\Lambda:$
  54. ligtable "f": comma kern-u#, period kern-u#, skewchar kern 6skew#; % $f:$
  55. ligtable "J": slash kern-u#, % $J:$
  56.  comma kern-2u#, period kern-2u#, skewchar kern 6skew#;
  57. ligtable "j":oct"033": comma kern -u#, period kern -u#; % $j:\sigma:$
  58. ligtable "V":"W":"Y":comma kern-3u#, period kern-3u#, % $V:W:Y:$
  59.  slash kern-2u#;
  60. ligtable slash: oct"001" kern -u#, "A" kern -u#, "M" kern -u#, % $/:$
  61.  "N" kern -u#, "Y" kern +u#, "Z" kern -u#;
  62. bye.
  63.